home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh72a.d64 / change addr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  37 lines
  1. 0 G$="HARD":A1=49152:A2=1024:REM BETRIEBSDATEN
  2. 1 PRINT"[147][142]STARTADRESSE EINES FILES AENDERN
  3. 2 [153]"PROGRAMMIERT VON N.HEUSLER, 23.8.88
  4. 3 PRINT"(C) 64'ER, MARKT & TECHNIK
  5. 4 [143] * BENUTZUNG AUF EIGENE GEFAHR *
  6. 5 [159]1,8,15,"U9
  7. 6 PRINT#1,"M-R"CHR$(183)CHR$(229)CHR$(17)
  8. 7 FORI=1TO17:GET#1,A$:N$=N$+A$:NEXT
  9. 8 IFN$<>"[195]BM DOS V2.6 154[177]"THENPRINT"PROGRAMM LAEUFT NUR AUF VC1541!":GOTO105
  10. 10 OPEN2,8,2,G$+",P,R
  11. 11 [141]100:[152]1,"M-R"[199](168)[199](0)[199](1):[161]#1,A$:A[178][198](A$[170][199](0))
  12. 12 [152]1,"M-R"[199](6[170]2[172]A)[199](0)[199](2)
  13. 13 [161]#1,A$:T[178][198](A$[170][199](0))
  14. 14 [161]#1,A$:S[178][198](A$[170][199](0))
  15. 15 [160]2
  16. 16 [159]2,8,2,"#
  17. 17 PRINT#1,"U1:2 0"T;S:GOSUB100
  18. 18 GET#2,A$,A$
  19. 19 GET#2,A$:L=ASC(A$+CHR$(0))
  20. 20 GET#2,A$:H=ASC(A$+CHR$(0))
  21. 21 A=L+256*H:PRINT"ALTE STARTADRESSE: "A
  22. 22 IFA=A2THENPRINT"BITTE NUR EINMAL AENDERN !":GOTO105
  23. 23 IFA<>A1THENPRINT"FEHLERHAFTES MSE-LISTING !":GOTO105
  24. 24 PRINT"ADRESSE OK. WIRD GEAENDERT.
  25. 25 AH[178][181](A2[173]256):AL[178]A2[171]AH[172]256
  26. 26 [152]1,"U1:2 0"T;S:[141]100
  27. 27 [152]1,"B-P 2 2
  28. 28 PRINT#2,CHR$(AL)CHR$(AH);
  29. 29 PRINT#1,"U2:2 0"T;S:GOSUB100:PRINT"ALLES OK. FERTIG.":GOTO106
  30. 100 F4=F4+1:INPUT#1,F1,F1$,F2,F3
  31. 101 IFF1=.THENRETURN
  32. 102 PRINT"DISKETTENFEHLER NR."F1
  33. 103 PRINT"TEXT: "F1$
  34. 104 PRINT"TRACK:"F2" SEKTOR:"F3" PASS:"F4
  35. 105 PRINT"PROGRAMM ABGEBROCHEN...
  36. 106 [160]2:[160]1
  37.